MODULE SHARE
DOUBLE PRECISION, DIMENSION(5000,900,10) :: chars
DOUBLE PRECISION, DIMENSION(5000,900) :: weig,rit
DOUBLE PRECISION, DIMENSION(900) :: ISOPRT
DOUBLE PRECISION :: gamma,one,two,zero,s,sc
INTEGER :: ktr(900),NMOS
END MODULE SHARE
